(defun emit-byte (byte dest-file)
  (with-open-file (out dest-file :direction :output
		                 :element-type 'unsigned-byte
				 :if-exists :append)
    (write-byte byte out)))

(emit-byte #xFF "test.out")
